home *** CD-ROM | disk | FTP | other *** search
/ Scene 96 / Scene 96 International Edition (Zyklop Software) (Disc 2) (1997).iso / misc / coding / onenssrc / onenight.pas < prev    next >
Pascal/Delphi Source File  |  1996-01-17  |  2KB  |  80 lines
  1. program OneNightStand;
  2.  
  3. (* Trying to whip this up for Juhla3...
  4. **
  5. ** Credits:
  6. **  Code, gfx, music: Quantum Porcupine
  7. **  Distribution, etc.: Wog
  8. *)
  9.  
  10. uses
  11.     zipvga, liktwk, crt, oneres,
  12.     part1, part2, part3{, part4}, part5;
  13.  
  14.     procedure mainloop;
  15.  
  16.     begin
  17.         part1.run;
  18.         while keypressed do
  19.             readkey;
  20.         {if keypressed then
  21.             if readkey = #27 then
  22.                 exit;}
  23.         part2.run;
  24.         {if keypressed then
  25.             if readkey = #27 then
  26.                 exit;}
  27.         while keypressed do
  28.             readkey;
  29.         part3.run;
  30.         while keypressed do
  31.             readkey;
  32.         {if keypressed then
  33.             if readkey = #27 then
  34.                 exit;}
  35.         {part4.run;
  36.         if keypressed then
  37.             if readkey = #27 then
  38.                 exit;}
  39.         part5.run;
  40.         while keypressed do
  41.             readkey;
  42.     end;
  43.  
  44. begin
  45.     TrapRetrace := true;
  46.     if paramcount = 1 then
  47.         if (paramstr(1) = '/R') or (paramstr(1) = '/r') then
  48.             TrapRetrace := false;
  49.  
  50.     initvga;
  51.  
  52.     NewModule ('onenight.000');
  53.  
  54.     mainloop;
  55.  
  56.     closevga;
  57.     directvideo := true;
  58.     writeln (ioresult);
  59.     textmode (3);
  60.  
  61.     writeln ('Hi, Quantum Porcupine writing here.  I humbly apologize for the poor');
  62.     writeln ('quality of this demo, but I have worked on it alone for the last 7');
  63.     writeln ('hours straight and I''ve got class in just 4 hours...  so anyway,');
  64.     writeln ('greetz to the usual people (you know who you are :)  Hmmm, I guess');
  65.     writeln ('this is one of those "first" demos which suck so bad that they');
  66.     writeln ('shouldn''t be released... oh well, wait for the 8086 compo, that');
  67.     writeln ('entry is a lot better :)');
  68.     writeln;
  69.     writeln ('Read the .nfo file for more detail though.');
  70.     writeln;
  71.     writeln ('Credits:');
  72.     writeln (' gfx, music and code - Quantum Porcupine');
  73.     writeln (' MiDAS soundsystem - Petteri Kangaslampi');
  74.     writeln (' Tweaked videomode code - Liket / Goto10');
  75.     writeln;
  76.     writeln ('This was written for Juhla3, to be presented by Wog...');
  77.     writeln;
  78.     writeln ('And I guess he''ll add in his own contact info or something, but if you''d');
  79.     writeln ('like to email me, it''s jshagam@nmsu.edu.  Go suck on a uranium tablet.');
  80. end.